Biomassa de rvores
1.
(log(1.7953))*(15^2.2974)
1.718281^(-2.6464+1.9960*(log(15))+(0.7558*(log(12))))
abs(log(log(1.7953))*(15^2.2974))


Sequncias
1.
rep ("a", times=6)
2.
rep (seq (1:3), each=3)
3.
rep(1:3, c(3,2,1))
4.
c (1:5,4:1)
5.
seq(from=1, to=100, by=2)

Conta de Luz
contas <- c(9839, 10149, 10486, 10746, 11264, 11684, 12082, 12599, 13004, 13350, 13717, 14052)
1.
contas.diff <- diff(contas)
2. e 3.
summary (contas.diff)
var (contas.diff)

rea Basal
1.
(pi/4)*(13.5^2)
2. Assumindo que eu entendi o que  fuste...
Estou assumindo que a rea basal  a soma da rea dos fustes
((pi/4)*(7^2))+((pi/4)*(9^2))+((pi/4)*(12^2))

Varincia da Unha
1.
pesos <- c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)
mediapesos <- mean (pesos)
mediapesos.1 <- (pesos-mean(pesos))^2/11
sum (mediapesos.1)
sqrt (3.110606)
2.
var(pesos)
sd(pesos)

Teste t
pt(2.2, 19)
(2.2 ->  significativo)
pt(1.9, 19)
(1.9 no  significativo)
